opendir D, '.';
@things = readdir D;
for $l (@things) {
    if ($l =~ /^(Page\s+\d+)\s+\-\s+(.*)\.htm$/) {
        $f1 = $l;
        $f2 = "${2}-${1}.htm";
        $f1 =~ s/"/\\"/g;
        $f2 =~ s/"/\\"/g;
        print "mv \"$f1\" \"$f2\"\n";
    }
}
